ClrGraph
{1}→List1
0→B
1→D

ClrText
ClrGraph
While D≠0
GetKey→D
WhileEnd
Locate 1,1,"WHAT KEY FOR CONFIRM"
While D=0
GetKey→D
WhileEnd
D→List1[1]

ClrText
ClrGraph
While D≠0
GetKey→D
WhileEnd
Locate 1,1,"WHAT KEY FOR CANCEL"
While D=0
GetKey→D
WhileEnd
D→List1[2]

ClrText
ClrGraph
While D≠0
GetKey→D
WhileEnd
Locate 1,1,"WHAT KEY FOR JUMP"
While D=0
GetKey→D
WhileEnd
D→List1[3]

ClrText
ClrGraph
While 1
GetKey→D
If D=List1[1]
Then Locate 1,1,"       "
Locate 1,1,"CONFIRM"
IfEnd
If D=List1[2]
Then Locate 1,1,"       "
Locate 1,1,"CANCEL"
IfEnd
If D=List1[3]
Then Locate 1,1,"       "
Locate 1,1,"JUMP"
IfEnd
WhileEnd

List1